BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / U-Z / ViewIt 2.24 Shareware.sit / ViewIt™ 2.24 Shareware / Pascal Demo Projects / Metrowerks Pascal 1.0d7 Demos / fDemoMP.p < prev next >
MacBinary | 1994-03-02 | 4.0 KB | [TEXT/MWPS]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Mar 2 21:27:13 1994, modified Wed Mar 2 21:27:13 1994, creator 'MWPS', type ASCII, 3478 bytes "fDemoMP.p" , at 0xe16 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MWPS]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 66 44 65 6d 6f 4d | 50 2e 70 00 00 00 00 00 |..fDemoM|P.p.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 57 50 | 53 00 00 00 00 00 00 00 |.TEXTMWP|S.......|
|00000050| 00 00 00 00 00 0d 96 00 | 00 01 7e a9 9a fb 81 a9 |........|..~.....|
|00000060| 9a fb 81 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d3 fc 00 00 |........|........|
|00000080| 7b 46 61 63 65 49 74 20 | 32 2e 32 20 44 65 6d 6f |{FaceIt |2.2 Demo|
|00000090| 6e 73 74 72 61 74 69 6f | 6e 20 50 72 6f 67 72 61 |nstratio|n Progra|
|000000a0| 6d 7d 0d 7b a9 46 61 63 | 65 57 61 72 65 20 31 39 |m}.{.Fac|eWare 19|
|000000b0| 38 39 2d 39 34 2e 20 20 | 41 6c 6c 20 52 69 67 68 |89-94.  |All Righ|
|000000c0| 74 73 20 52 65 73 65 72 | 76 65 64 2e 7d 0d 7b 43 |ts Reser|ved.}.{C|
|000000d0| 31 20 2d 20 72 75 6e 20 | 70 72 6f 67 72 61 6d 20 |1 - run |program |
|000000e0| 74 6f 20 73 65 65 20 6f | 6e 2d 6c 69 6e 65 20 63 |to see o|n-line c|
|000000f0| 6f 6d 6d 65 6e 74 73 7d | 0d 70 72 6f 67 72 61 6d |omments}|.program|
|00000100| 20 66 44 65 6d 6f 4d 50 | 3b 0d 0d 7b 43 32 7d 0d | fDemoMP|;..{C2}.|
|00000110| 09 75 73 65 73 0d 09 09 | 46 61 63 65 53 74 6f 72 |.uses...|FaceStor|
|00000120| 4d 50 2c 20 46 61 63 65 | 50 72 6f 63 4d 50 2c 20 |MP, Face|ProcMP, |
|00000130| 54 6f 6f 6c 55 74 69 6c | 73 2c 20 4f 53 45 76 65 |ToolUtil|s, OSEve|
|00000140| 6e 74 73 3b 0d 09 76 61 | 72 0d 09 09 69 2c 20 6d |nts;..va|r...i, m|
|00000150| 6f 64 65 3a 20 69 6e 74 | 65 67 65 72 3b 0d 09 09 |ode: int|eger;...|
|00000160| 6f 6c 64 43 6f 75 6e 74 | 2c 20 6e 65 77 43 6f 75 |oldCount|, newCou|
|00000170| 6e 74 3a 20 6c 6f 6e 67 | 69 6e 74 3b 0d 09 09 6b |nt: long|int;...k|
|00000180| 65 79 73 3a 20 4b 65 79 | 4d 61 70 3b 0d 09 09 66 |eys: Key|Map;...f|
|00000190| 69 6c 65 4e 61 6d 65 3a | 20 53 74 72 32 35 35 3b |ileName:| Str255;|
|000001a0| 0d 0d 62 65 67 69 6e 0d | 09 77 69 74 68 20 66 52 |..begin.|.with fR|
|000001b0| 65 63 20 64 6f 0d 09 09 | 62 65 67 69 6e 0d 7b 43 |ec do...|begin.{C|
|000001c0| 33 7d 0d 09 09 09 75 4e | 61 6d 65 20 3a 3d 20 27 |3}....uN|ame := '|
|000001d0| 66 44 65 6d 6f 2e 52 73 | 72 63 27 3b 0d 7b 43 34 |fDemo.Rs|rc';.{C4|
|000001e0| 7d 0d 09 09 09 46 61 63 | 65 49 74 28 6e 69 6c 2c |}....Fac|eIt(nil,|
|000001f0| 20 44 6f 49 6e 69 74 2c | 20 33 2c 20 30 2c 20 30 | DoInit,| 3, 0, 0|
|00000200| 2c 20 30 29 3b 0d 7b 43 | 35 7d 0d 09 09 09 46 61 |, 0);.{C|5}....Fa|
|00000210| 63 65 49 74 28 6e 69 6c | 2c 20 4e 65 77 57 6e 64 |ceIt(nil|, NewWnd|
|00000220| 2c 20 31 30 31 30 2c 20 | 31 2c 20 30 2c 20 30 29 |, 1010, |1, 0, 0)|
|00000230| 3b 0d 09 09 09 46 61 63 | 65 49 74 28 6e 69 6c 2c |;....Fac|eIt(nil,|
|00000240| 20 4e 65 77 57 6e 64 2c | 20 31 30 32 30 2c 20 31 | NewWnd,| 1020, 1|
|00000250| 2c 20 30 2c 20 30 29 3b | 0d 7b 43 36 7d 0d 09 09 |, 0, 0);|.{C6}...|
|00000260| 09 46 61 63 65 49 74 28 | 6e 69 6c 2c 20 4e 65 77 |.FaceIt(|nil, New|
|00000270| 57 6e 64 2c 20 31 30 33 | 30 2c 20 31 2c 20 30 2c |Wnd, 103|0, 1, 0,|
|00000280| 20 30 29 3b 0d 7b 43 37 | 7d 0d 09 09 09 46 61 63 | 0);.{C7|}....Fac|
|00000290| 65 49 74 28 6e 69 6c 2c | 20 4e 65 77 57 6e 64 2c |eIt(nil,| NewWnd,|
|000002a0| 20 31 30 34 30 2c 20 32 | 2c 20 30 2c 20 30 29 3b | 1040, 2|, 0, 0);|
|000002b0| 0d 7b 43 38 7d 0d 09 09 | 09 72 65 70 65 61 74 0d |.{C8}...|.repeat.|
|000002c0| 09 09 09 09 46 61 63 65 | 49 74 28 6e 69 6c 2c 20 |....Face|It(nil, |
|000002d0| 44 6f 4c 6f 6f 70 2c 20 | 30 2c 20 30 2c 20 30 2c |DoLoop, |0, 0, 0,|
|000002e0| 20 30 29 3b 0d 7b 43 39 | 7d 0d 09 09 09 09 63 61 | 0);.{C9|}.....ca|
|000002f0| 73 65 20 75 4d 65 6e 75 | 49 44 20 6f 66 0d 7b 43 |se uMenu|ID of.{C|
|00000300| 31 30 7d 0d 09 09 09 09 | 09 31 30 31 3a 20 0d 09 |10}.....|.101: ..|
|00000310| 09 09 09 09 09 69 66 20 | 28 75 4d 65 6e 75 49 74 |.....if |(uMenuIt|
|00000320| 65 6d 20 3d 20 31 29 20 | 74 68 65 6e 0d 09 09 09 |em = 1) |then....|
|00000330| 09 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |....begi|n.......|
|00000340| 09 09 75 53 74 72 69 6e | 67 20 3a 3d 20 63 6f 6e |..uStrin|g := con|
|00000350| 63 61 74 28 27 44 65 6d | 6f 6e 73 74 72 61 74 69 |cat('Dem|onstrati|
|00000360| 6f 6e 20 6f 66 20 74 68 | 65 20 75 73 65 20 6f 66 |on of th|e use of|
|00000370| 20 46 61 63 65 49 74 27 | 2c 20 63 68 72 28 31 33 | FaceIt'|, chr(13|
|00000380| 29 2c 20 27 74 6f 20 73 | 75 70 70 6f 72 74 20 70 |), 'to s|upport p|
|00000390| 72 6f 67 72 61 6d 2d 77 | 69 64 65 20 66 65 61 74 |rogram-w|ide feat|
|000003a0| 75 72 65 73 2e 27 29 3b | 0d 09 09 09 09 09 09 09 |ures.');|........|
|000003b0| 09 46 61 63 65 49 74 28 | 6e 69 6c 2c 20 53 68 6f |.FaceIt(|nil, Sho|
|000003c0| 53 74 72 2c 20 33 2c 20 | 31 32 2c 20 31 20 2b 20 |Str, 3, |12, 1 + |
|000003d0| 28 34 30 39 20 2a 20 36 | 35 35 33 36 29 2c 20 30 |(409 * 6|5536), 0|
|000003e0| 29 3b 0d 09 09 09 09 09 | 09 09 65 6e 64 3b 0d 7b |);......|..end;.{|
|000003f0| 43 31 31 7d 0d 09 09 09 | 09 09 31 30 32 3a 20 0d |C11}....|..102: .|
|00000400| 09 09 09 09 09 09 69 66 | 20 28 75 4d 65 6e 75 49 |......if| (uMenuI|
|00000410| 74 65 6d 20 3d 20 36 29 | 20 74 68 65 6e 0d 09 09 |tem = 6)| then...|
|00000420| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00000430| 09 09 09 46 61 63 65 49 | 74 28 6e 69 6c 2c 20 47 |...FaceI|t(nil, G|
|00000440| 65 74 57 56 43 2c 20 31 | 30 31 30 2c 20 30 2c 20 |etWVC, 1|010, 0, |
|00000450| 30 2c 20 30 29 3b 0d 09 | 09 09 09 09 09 09 09 46 |0, 0);..|.......F|
|00000460| 61 63 65 49 74 28 6e 69 | 6c 2c 20 53 61 76 57 6e |aceIt(ni|l, SavWn|
|00000470| 64 2c 20 31 30 31 30 2c | 20 30 2c 20 30 2c 20 30 |d, 1010,| 0, 0, 0|
|00000480| 29 3b 0d 09 09 09 09 09 | 09 09 09 46 61 63 65 49 |);......|...FaceI|
|00000490| 74 28 6e 69 6c 2c 20 47 | 65 74 57 56 43 2c 20 31 |t(nil, G|etWVC, 1|
|000004a0| 30 32 30 2c 20 30 2c 20 | 30 2c 20 30 29 3b 0d 09 |020, 0, |0, 0);..|
|000004b0| 09 09 09 09 09 09 09 46 | 61 63 65 49 74 28 6e 69 |.......F|aceIt(ni|
|000004c0| 6c 2c 20 53 61 76 57 6e | 64 2c 20 31 30 32 30 2c |l, SavWn|d, 1020,|
|000004d0| 20 30 2c 20 30 2c 20 30 | 29 3b 0d 09 09 09 09 09 | 0, 0, 0|);......|
|000004e0| 09 09 09 46 61 63 65 49 | 74 28 6e 69 6c 2c 20 47 |...FaceI|t(nil, G|
|000004f0| 65 74 57 56 43 2c 20 31 | 30 34 30 2c 20 30 2c 20 |etWVC, 1|040, 0, |
|00000500| 30 2c 20 30 29 3b 0d 09 | 09 09 09 09 09 09 09 46 |0, 0);..|.......F|
|00000510| 61 63 65 49 74 28 6e 69 | 6c 2c 20 53 61 76 57 6e |aceIt(ni|l, SavWn|
|00000520| 64 2c 20 31 30 34 30 2c | 20 30 2c 20 30 2c 20 30 |d, 1040,| 0, 0, 0|
|00000530| 29 3b 0d 09 09 09 09 09 | 09 09 65 6e 64 3b 0d 7b |);......|..end;.{|
|00000540| 43 31 32 7d 0d 09 09 09 | 09 09 31 30 35 2c 20 31 |C12}....|..105, 1|
|00000550| 30 36 2c 20 31 30 33 30 | 2c 20 31 30 34 30 3a 20 |06, 1030|, 1040: |
|00000560| 0d 09 09 09 09 09 09 63 | 61 73 65 20 75 4d 65 6e |.......c|ase uMen|
|00000570| 75 49 74 65 6d 20 6f 66 | 0d 09 09 09 09 09 09 09 |uItem of|........|
|00000580| 31 3a 20 0d 09 09 09 09 | 09 09 09 09 53 79 73 42 |1: .....|....SysB|
|00000590| 65 65 70 28 35 29 3b 0d | 09 09 09 09 09 09 09 32 |eep(5);.|.......2|
|000005a0| 3a 20 0d 09 09 09 09 09 | 09 09 09 62 65 67 69 6e |: ......|...begin|
|000005b0| 0d 09 09 09 09 09 09 09 | 09 09 53 79 73 42 65 65 |........|..SysBee|
|000005c0| 70 28 35 29 3b 0d 09 09 | 09 09 09 09 09 09 09 53 |p(5);...|.......S|
|000005d0| 79 73 42 65 65 70 28 35 | 29 3b 0d 09 09 09 09 09 |ysBeep(5|);......|
|000005e0| 09 09 09 65 6e 64 3b 0d | 09 09 09 09 09 09 09 33 |...end;.|.......3|
|000005f0| 3a 20 0d 09 09 09 09 09 | 09 09 09 62 65 67 69 6e |: ......|...begin|
|00000600| 0d 09 09 09 09 09 09 09 | 09 09 53 79 73 42 65 65 |........|..SysBee|
|00000610| 70 28 35 29 3b 0d 09 09 | 09 09 09 09 09 09 09 53 |p(5);...|.......S|
|00000620| 79 73 42 65 65 70 28 35 | 29 3b 0d 09 09 09 09 09 |ysBeep(5|);......|
|00000630| 09 09 09 09 53 79 73 42 | 65 65 70 28 35 29 3b 0d |....SysB|eep(5);.|
|00000640| 09 09 09 09 09 09 09 09 | 65 6e 64 3b 0d 7b 43 31 |........|end;.{C1|
|00000650| 33 7d 0d 09 09 09 09 09 | 09 09 34 3a 20 0d 09 09 |3}......|..4: ...|
|00000660| 09 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00000670| 09 09 09 09 09 46 61 63 | 65 49 74 28 6e 69 6c 2c |.....Fac|eIt(nil,|
|00000680| 20 47 65 74 43 74 6c 2c | 20 31 30 33 30 2c 20 30 | GetCtl,| 1030, 0|
|00000690| 2c 20 31 2c 20 34 29 3b | 0d 09 09 09 09 09 09 09 |, 1, 4);|........|
|000006a0| 09 09 46 61 63 65 49 74 | 28 6e 69 6c 2c 20 50 6f |..FaceIt|(nil, Po|
|000006b0| 70 4d 65 6e 2c 20 31 30 | 37 2c 20 63 52 65 63 74 |pMen, 10|7, cRect|
|000006c0| 2e 74 6f 70 20 2d 20 39 | 2c 20 63 52 65 63 74 2e |.top - 9|, cRect.|
|000006d0| 6c 65 66 74 20 2d 20 31 | 30 2c 20 30 29 3b 0d 09 |left - 1|0, 0);..|
|000006e0| 09 09 09 09 09 09 09 65 | 6e 64 3b 0d 7b 43 31 34 |.......e|nd;.{C14|
|000006f0| 7d 0d 09 09 09 09 09 09 | 09 38 3a 20 0d 09 09 09 |}.......|.8: ....|
|00000700| 09 09 09 09 09 62 65 67 | 69 6e 0d 7b 43 31 35 7d |.....beg|in.{C15}|
|00000710| 0d 09 09 09 09 09 09 09 | 09 09 46 61 63 65 49 74 |........|..FaceIt|
|00000720| 28 6e 69 6c 2c 20 53 68 | 6f 41 6c 74 2c 20 31 30 |(nil, Sh|oAlt, 10|
|00000730| 31 30 2c 20 30 2c 20 31 | 2c 20 31 29 3b 0d 09 09 |10, 0, 1|, 1);...|
|00000740| 09 09 09 09 09 09 09 6d | 6f 64 65 20 3a 3d 20 75 |.......m|ode := u|
|00000750| 52 65 73 75 6c 74 3b 0d | 09 09 09 09 09 09 09 09 |Result;.|........|
|00000760| 09 6f 6c 64 43 6f 75 6e | 74 20 3a 3d 20 30 3b 0d |.oldCoun|t := 0;.|
|00000770| 09 09 09 09 09 09 09 09 | 09 69 66 20 28 6d 6f 64 |........|.if (mod|
|00000780| 65 20 3e 20 31 29 20 74 | 68 65 6e 0d 09 09 09 09 |e > 1) t|hen.....|
|00000790| 09 09 09 09 09 09 77 68 | 69 6c 65 20 74 72 75 65 |......wh|ile true|
|000007a0| 20 64 6f 0d 09 09 09 09 | 09 09 09 09 09 09 09 62 | do.....|.......b|
|000007b0| 65 67 69 6e 0d 7b 43 31 | 36 7d 0d 09 09 09 09 09 |egin.{C1|6}......|
|000007c0| 09 09 09 09 09 09 09 6e | 65 77 43 6f 75 6e 74 20 |.......n|ewCount |
|000007d0| 3a 3d 20 54 69 63 6b 43 | 6f 75 6e 74 3b 0d 09 09 |:= TickC|ount;...|
|000007e0| 09 09 09 09 09 09 09 09 | 09 09 69 66 20 28 6e 65 |........|..if (ne|
|000007f0| 77 43 6f 75 6e 74 20 2d | 20 6f 6c 64 43 6f 75 6e |wCount -| oldCoun|
|00000800| 74 20 3e 20 31 38 30 29 | 20 74 68 65 6e 0d 09 09 |t > 180)| then...|
|00000810| 09 09 09 09 09 09 09 09 | 09 09 09 62 65 67 69 6e |........|...begin|
|00000820| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 53 |........|.......S|
|00000830| 79 73 42 65 65 70 28 35 | 29 3b 0d 09 09 09 09 09 |ysBeep(5|);......|
|00000840| 09 09 09 09 09 09 09 09 | 09 6f 6c 64 43 6f 75 6e |........|.oldCoun|
|00000850| 74 20 3a 3d 20 6e 65 77 | 43 6f 75 6e 74 3b 0d 09 |t := new|Count;..|
|00000860| 09 09 09 09 09 09 09 09 | 09 09 09 09 65 6e 64 3b |........|....end;|
|00000870| 0d 7b 43 31 37 7d 0d 09 | 09 09 09 09 09 09 09 09 |.{C17}..|........|
|00000880| 09 09 09 69 66 20 28 6d | 6f 64 65 20 3d 20 32 29 |...if (m|ode = 2)|
|00000890| 20 74 68 65 6e 0d 09 09 | 09 09 09 09 09 09 09 09 | then...|........|
|000008a0| 09 09 09 69 66 20 47 65 | 74 4e 65 78 74 45 76 65 |...if Ge|tNextEve|
|000008b0| 6e 74 28 2d 31 2c 20 66 | 45 76 65 6e 74 29 20 74 |nt(-1, f|Event) t|
|000008c0| 68 65 6e 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |hen.....|........|
|000008d0| 09 09 69 66 20 28 66 45 | 76 65 6e 74 2e 77 68 61 |..if (fE|vent.wha|
|000008e0| 74 20 3d 20 35 29 20 74 | 68 65 6e 0d 09 09 09 09 |t = 5) t|hen.....|
|000008f0| 09 09 09 09 09 09 09 09 | 09 09 09 6c 65 61 76 65 |........|...leave|
|00000900| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 65 |........|.......e|
|00000910| 6c 73 65 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |lse.....|........|
|00000920| 09 09 09 46 61 63 65 49 | 74 28 6e 69 6c 2c 20 44 |...FaceI|t(nil, D|
|00000930| 6f 45 76 6e 74 2c 20 30 | 2c 20 30 2c 20 30 2c 20 |oEvnt, 0|, 0, 0, |
|00000940| 30 29 3b 0d 7b 43 31 38 | 7d 0d 09 09 09 09 09 09 |0);.{C18|}.......|
|00000950| 09 09 09 09 09 09 69 66 | 20 28 6d 6f 64 65 20 3d |......if| (mode =|
|00000960| 20 33 29 20 74 68 65 6e | 0d 09 09 09 09 09 09 09 | 3) then|........|
|00000970| 09 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00000980| 09 09 09 09 09 09 09 09 | 09 09 47 65 74 4b 65 79 |........|..GetKey|
|00000990| 73 28 6b 65 79 73 29 3b | 0d 09 09 09 09 09 09 09 |s(keys);|........|
|000009a0| 09 09 09 09 09 09 09 69 | 66 20 42 69 74 54 73 74 |.......i|f BitTst|
|000009b0| 28 40 6b 65 79 73 2c 20 | 36 31 29 20 61 6e 64 20 |(@keys, |61) and |
|000009c0| 42 69 74 54 73 74 28 40 | 6b 65 79 73 2c 20 34 38 |BitTst(@|keys, 48|
|000009d0| 29 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 09 09 |) then..|........|
|000009e0| 09 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|000009f0| 09 09 09 09 09 09 09 09 | 09 09 09 09 46 6c 75 73 |........|....Flus|
|00000a00| 68 45 76 65 6e 74 73 28 | 36 32 2c 20 30 29 3b 0d |hEvents(|62, 0);.|
|00000a10| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000a20| 6c 65 61 76 65 3b 0d 09 | 09 09 09 09 09 09 09 09 |leave;..|........|
|00000a30| 09 09 09 09 09 09 65 6e | 64 3b 0d 09 09 09 09 09 |......en|d;......|
|00000a40| 09 09 09 09 09 09 09 09 | 65 6e 64 3b 0d 09 09 09 |........|end;....|
|00000a50| 09 09 09 09 09 09 09 09 | 65 6e 64 3b 0d 09 09 09 |........|end;....|
|00000a60| 09 09 09 09 09 65 6e 64 | 3b 0d 09 09 09 09 09 09 |.....end|;.......|
|00000a70| 09 6f 74 68 65 72 77 69 | 73 65 0d 09 09 09 09 09 |.otherwi|se......|
|00000a80| 09 65 6e 64 3b 0d 7b 43 | 31 39 7d 0d 09 09 09 09 |.end;.{C|19}.....|
|00000a90| 09 31 31 30 30 3a 20 0d | 09 09 09 09 09 09 69 66 |.1100: .|......if|
|00000aa0| 20 28 75 4d 65 6e 75 49 | 74 65 6d 20 3d 20 32 29 | (uMenuI|tem = 2)|
|00000ab0| 20 74 68 65 6e 0d 09 09 | 09 09 09 09 09 62 65 67 | then...|.....beg|
|00000ac0| 69 6e 0d 09 09 09 09 09 | 09 09 09 69 66 20 28 66 |in......|...if (f|
|00000ad0| 41 63 74 69 76 65 57 6e | 64 20 3d 20 6e 69 6c 29 |ActiveWn|d = nil)|
|00000ae0| 20 74 68 65 6e 0d 09 09 | 09 09 09 09 09 09 09 75 | then...|.......u|
|00000af0| 53 74 72 69 6e 67 20 3a | 3d 20 27 4e 6f 20 57 69 |String :|= 'No Wi|
|00000b00| 6e 64 6f 77 27 0d 09 09 | 09 09 09 09 09 09 65 6c |ndow'...|......el|
|00000b10| 73 65 20 69 66 20 28 66 | 41 63 74 69 76 65 49 44 |se if (f|ActiveID|
|00000b20| 20 3c 3e 20 31 32 30 30 | 29 20 74 68 65 6e 0d 09 | <> 1200|) then..|
|00000b30| 09 09 09 09 09 09 09 09 | 75 53 74 72 69 6e 67 20 |........|uString |
|00000b40| 3a 3d 20 27 4e 6f 6e 2d | 56 69 65 77 49 74 20 57 |:= 'Non-|ViewIt W|
|00000b50| 69 6e 64 6f 77 27 0d 09 | 09 09 09 09 09 09 09 65 |indow'..|.......e|
|00000b60| 6c 73 65 20 69 66 20 28 | 66 41 63 74 69 76 65 52 |lse if (|fActiveR|
|00000b70| 65 73 49 44 20 3d 20 31 | 32 30 34 29 20 74 68 65 |esID = 1|204) the|
|00000b80| 6e 0d 09 09 09 09 09 09 | 09 09 09 75 53 74 72 69 |n.......|...uStri|
|00000b90| 6e 67 20 3a 3d 20 27 48 | 65 6c 70 20 57 69 6e 64 |ng := 'H|elp Wind|
|00000ba0| 6f 77 27 0d 09 09 09 09 | 09 09 09 09 65 6c 73 65 |ow'.....|....else|
|00000bb0| 20 69 66 20 28 66 41 63 | 74 69 76 65 52 65 73 49 | if (fAc|tiveResI|
|00000bc0| 44 20 3d 20 31 30 31 30 | 29 20 74 68 65 6e 0d 09 |D = 1010|) then..|
|00000bd0| 09 09 09 09 09 09 09 09 | 75 53 74 72 69 6e 67 20 |........|uString |
|00000be0| 3a 3d 20 27 45 64 69 74 | 6f 72 20 57 69 6e 64 6f |:= 'Edit|or Windo|
|00000bf0| 77 27 0d 09 09 09 09 09 | 09 09 09 65 6c 73 65 20 |w'......|...else |
|00000c00| 69 66 20 28 66 41 63 74 | 69 76 65 52 65 73 49 44 |if (fAct|iveResID|
|00000c10| 20 3d 20 31 30 32 30 29 | 20 74 68 65 6e 0d 09 09 | = 1020)| then...|
|00000c20| 09 09 09 09 09 09 09 75 | 53 74 72 69 6e 67 20 3a |.......u|String :|
|00000c30| 3d 20 27 43 6c 69 70 62 | 6f 61 72 64 20 57 69 6e |= 'Clipb|oard Win|
|00000c40| 64 6f 77 27 0d 09 09 09 | 09 09 09 09 09 65 6c 73 |dow'....|.....els|
|00000c50| 65 20 69 66 20 28 66 41 | 63 74 69 76 65 52 65 73 |e if (fA|ctiveRes|
|00000c60| 49 44 20 3d 20 31 30 33 | 30 29 20 74 68 65 6e 0d |ID = 103|0) then.|
|00000c70| 09 09 09 09 09 09 09 09 | 09 75 53 74 72 69 6e 67 |........|.uString|
|00000c80| 20 3a 3d 20 27 42 65 65 | 70 73 20 57 69 6e 64 6f | := 'Bee|ps Windo|
|00000c90| 77 27 3b 0d 09 09 09 09 | 09 09 09 09 46 61 63 65 |w';.....|....Face|
|00000ca0| 49 74 28 6e 69 6c 2c 20 | 53 65 74 49 74 6d 32 2c |It(nil, |SetItm2,|
|00000cb0| 20 31 30 35 2c 20 31 30 | 2c 20 33 2c 20 30 29 3b | 105, 10|, 3, 0);|
|00000cc0| 0d 09 09 09 09 09 09 09 | 65 6e 64 0d 7b 43 32 30 |........|end.{C20|
|00000cd0| 7d 0d 09 09 09 09 09 09 | 65 6c 73 65 20 69 66 20 |}.......|else if |
|00000ce0| 28 75 4d 65 6e 75 49 74 | 65 6d 20 3d 20 35 31 32 |(uMenuIt|em = 512|
|00000cf0| 29 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 69 66 |) then..|......if|
|00000d00| 20 28 75 53 74 72 69 6e | 67 20 3d 20 27 54 45 58 | (uStrin|g = 'TEX|
|00000d10| 54 27 29 20 61 6e 64 20 | 28 75 52 65 73 75 6c 74 |T') and |(uResult|
|00000d20| 20 3d 20 31 29 20 74 68 | 65 6e 0d 09 09 09 09 09 | = 1) th|en......|
|00000d30| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 09 09 09 |...begin|........|
|00000d40| 09 09 66 69 6c 65 4e 61 | 6d 65 20 3a 3d 20 75 4e |..fileNa|me := uN|
|00000d50| 61 6d 65 3b 0d 09 09 09 | 09 09 09 09 09 09 46 61 |ame;....|......Fa|
|00000d60| 63 65 49 74 28 6e 69 6c | 2c 20 47 65 74 43 74 6c |ceIt(nil|, GetCtl|
|00000d70| 2c 20 31 30 31 30 2c 20 | 30 2c 20 31 2c 20 31 29 |, 1010, |0, 1, 1)|
|00000d80| 3b 0d 09 09 09 09 09 09 | 09 09 09 75 4e 61 6d 65 |;.......|...uName|
|00000d90| 20 3a 3d 20 66 69 6c 65 | 4e 61 6d 65 3b 0d 09 09 | := file|Name;...|
|00000da0| 09 09 09 09 09 09 09 46 | 61 63 65 49 74 28 63 43 |.......F|aceIt(cC|
|00000db0| 6f 6e 74 72 6f 6c 2c 20 | 31 35 35 31 2c 20 30 2c |ontrol, |1551, 0,|
|00000dc0| 20 31 2c 20 30 2c 20 30 | 29 3b 09 7b 4f 70 6e 43 | 1, 0, 0|);.{OpnC|
|00000dd0| 54 78 74 7d 0d 09 09 09 | 09 09 09 09 09 65 6e 64 |Txt}....|.....end|
|00000de0| 3b 0d 09 09 09 09 09 6f | 74 68 65 72 77 69 73 65 |;......o|therwise|
|00000df0| 0d 09 09 09 09 65 6e 64 | 3b 0d 09 09 09 75 6e 74 |.....end|;....unt|
|00000e00| 69 6c 20 66 61 6c 73 65 | 3b 0d 0d 09 09 65 6e 64 |il false|;....end|
|00000e10| 3b 0d 65 6e 64 2e 00 00 | 00 00 00 00 00 00 00 00 |;.end...|........|
|00000e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e80| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000e90| 00 00 00 00 00 00 00 00 | 00 00 00 01 2b 33 45 46 |........|....+3EF|
|00000ea0| 36 39 34 10 11 1a 18 2d | 19 2e 1d 05 05 05 05 05 |694....-|........|
|00000eb0| 09 66 44 65 6d 6f 4d 50 | 2e 70 02 00 00 00 50 61 |.fDemoMP|.p....Pa|
|00000ec0| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 02 |rtSITx..|........|
|00000ed0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 aa 02 9a 67 00 00 | 00 00 00 00 01 7e 04 04 |.....g..|.....~..|
|00000f00| 04 04 04 04 04 04 04 04 | 04 04 04 04 04 04 04 04 |........|........|
|00000f10| 04 04 04 04 04 04 04 04 | 04 04 04 00 00 00 00 00 |........|........|
|00000f20| 4e 00 04 00 00 00 00 00 | 28 04 04 43 1c 23 25 00 |N.......|(..C.#%.|
|00000f30| 41 00 3f 42 3d 40 00 00 | 00 04 04 00 00 00 3e 00 |A.?B=@..|......>.|
|00000f40| 00 00 16 17 4d 47 04 04 | 04 04 04 00 00 2f 30 31 |....MG..|...../01|
|00000f50| 32 1b 00 04 04 48 49 4a | 4b 04 04 00 4e 00 00 4c |2....HIJ|K...N..L|
|00000f60| 04 04 04 04 04 04 04 04 | 04 04 04 00 04 04 04 04 |........|........|
|00000f70| 04 04 04 04 04 04 04 04 | 04 04 04 4e 72 00 00 20 |........|...Nr.. |
|00000f80| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 00 00 00 |...H..Ge|neva....|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 03 | 00 02 00 28 00 0a 01 2f |........|...(.../|
|00000fb0| 01 61 00 28 00 0a 01 2f | 01 61 a9 ce e6 15 00 00 |.a.(.../|.a......|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000fd0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 cd fc ec |...L...L|...2....|
|00000fe0| 0c 7e 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.~.....2|..MPSR..|
|00000ff0| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+